home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / HyperCard Demos / HyperMovies / CL⁄1 / CL_1 / background_3266.txt < prev    next >
Encoding:
Text File  |  1989-10-27  |  3.9 KB  |  174 lines
  1. -- background: 3266 from stack: in
  2. -- bmap block id: 2694
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Map
  6. ----- HyperTalk script -----
  7. on RetrieveAllData
  8.   put empty into field "Status"
  9.   show field "Status Backdrop"
  10.   show field "Status"
  11.   set cursor to 4
  12.  
  13.   send "ConnectToVax" to bkgnd "Region Data"
  14.   if the result <> empty then
  15.     wait 120 ticks
  16.   else
  17.     --send "EraseMap" to bkgnd "Map"
  18.     send "GetDataForCard" && quote & "All Regions" & quote to card "All Regions"
  19.  
  20.     put "Stand by... Redrawing map" into field "Status"
  21.     wait 45 ticks
  22.     RedrawMap
  23.     put "Data as of:" && the short date && the time into card field "Time & Date"
  24.   end if
  25.   hide field "Status"
  26.   hide field "Status Backdrop"
  27. end RetrieveAllData
  28.  
  29. on RedrawMap
  30.   put 14 into maxDrag
  31.   put AllRegionNums() into regions
  32.   put AllRegionSales() into sales
  33.   put maxItem (sales) into maxValue
  34.   reset paint
  35.   set textSize to 10
  36.   set textStyle to bold
  37.   set textAlign to center
  38.   hide field "Status"
  39.   hide field "Status Backdrop"
  40.  
  41.   -- This should go to the All Regions data card & get the region
  42.   -- numbers.  Then the buttons can be addressed by name.
  43.   repeat with i = 1 to 5
  44.     put item 1 of the loc of card btn i into x
  45.     put item 2 of the loc of card btn i into y
  46.     put y into baseLine
  47.     put the short name of card btn i into regionNum
  48.     set lockScreen to true
  49.     go to card "Region" && regionNum && "Map"
  50.     choose lasso tool
  51.     doMenu "Select"
  52.     doMenu "Opaque"
  53.     doMenu "Copy Picture"
  54.     go to card "Map of Regions"
  55.     doMenu "Paste Picture"
  56.     set lockScreen to false
  57.     put item (itemOffset (regionNum, regions)) of sales into value
  58.     put round (maxDrag * value / maxValue) into dragNum
  59.     repeat dragNum
  60.       drag from x, y to x, y-2 with optionKey
  61.       subtract 2 from y
  62.     end repeat
  63.     choose text tool
  64.     click at x,baseLine
  65.     put "$" & addComma (value) into value
  66.     type value
  67.   end repeat
  68.   choose browse tool
  69. end RedrawMap
  70.  
  71. on EraseMap
  72.   set lockScreen to true
  73.   --create a dot so the card pict is not empty
  74.   choose pencil tool
  75.   click at 1,1
  76.  
  77.   choose select tool
  78.   doMenu "Select"
  79.   type NumToChar(8) -- the backspace character
  80.   choose browse tool
  81.   set lockScreen to false
  82. end EraseMap
  83.  
  84.  
  85.  
  86. -- part 5 (button)
  87. -- low flags: 00
  88. -- high flags: A000
  89. -- rect: left=454 top=293 right=339 bottom=506
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 2162 / 2162
  92. -- text alignment: 1
  93. -- font id: 0
  94. -- text size: 12
  95. -- style flags: 0
  96. -- line height: 16
  97. -- part name: Main Menu
  98. ----- HyperTalk script -----
  99. on mouseUp
  100.   visual dissolve
  101.   go to card id 5341 of stack "Home"
  102. end mouseUp
  103.  
  104.  
  105.  
  106.  
  107. -- part 6 (button)
  108. -- low flags: 00
  109. -- high flags: 0000
  110. -- rect: left=5 top=283 right=314 bottom=171
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 0 / 0
  113. -- text alignment: 1
  114. -- font id: 0
  115. -- text size: 12
  116. -- style flags: 0
  117. -- line height: 16
  118. -- part name: Region Data
  119. ----- HyperTalk script -----
  120. on mouseUp
  121.   visual effect wipe right
  122.   go to card "All Regions"
  123. end mouseUp
  124.  
  125.  
  126.  
  127. -- part 8 (field)
  128. -- low flags: 80
  129. -- high flags: 2004
  130. -- rect: left=90 top=107 right=164 bottom=398
  131. -- title width / last selected line: 0
  132. -- icon id / first selected line: 0 / 0
  133. -- text alignment: 1
  134. -- font id: 3
  135. -- text size: 12
  136. -- style flags: 256
  137. -- line height: 16
  138. -- part name: Status Backdrop
  139.  
  140.  
  141. -- part 10 (field)
  142. -- low flags: 80
  143. -- high flags: 2000
  144. -- rect: left=90 top=121 right=155 bottom=397
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 0 / 0
  147. -- text alignment: 1
  148. -- font id: 3
  149. -- text size: 12
  150. -- style flags: 256
  151. -- line height: 16
  152. -- part name: Status
  153.  
  154.  
  155. -- part 11 (button)
  156. -- low flags: 00
  157. -- high flags: A000
  158. -- rect: left=454 top=238 right=283 bottom=506
  159. -- title width / last selected line: 0
  160. -- icon id / first selected line: 9761 / 9761
  161. -- text alignment: 1
  162. -- font id: 0
  163. -- text size: 12
  164. -- style flags: 0
  165. -- line height: 16
  166. -- part name: Setup
  167. ----- HyperTalk script -----
  168. on mouseUp
  169.   visual dissolve
  170.   go to card "Connect Setup"
  171. end mouseUp
  172.  
  173.  
  174.